home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Source Code / C / Games / Xconq 7.1.0 / lib / coral-sea.g < prev    next >
Encoding:
Text File  |  1996-04-04  |  4.7 KB  |  277 lines  |  [TEXT/XCNQ]
  1. (game-module "coral-sea"
  2.   (title "Coral Sea")
  3.   (blurb "Battle in the Coral Sea")
  4.   (base-module "ww2-div-pac")
  5.   (variants
  6.    (see-all false)
  7.    )
  8.   )
  9.  
  10. (set synthesis-methods nil)
  11.  
  12. (set initial-date "1 May 1942")
  13.  
  14. (scorekeeper (do last-side-wins))
  15.  
  16. ;; Real goal is Port Moresby...
  17.  
  18. (add u* point-value 0)
  19. (add port point-value 10)
  20. (add cv point-value 2)
  21.  
  22. (world 800)
  23.  
  24. (area 130 90)
  25.  
  26. (area (terrain
  27.   "130a"
  28.   "130a"
  29.   "18a2c110a"
  30.   "130a"
  31.   "130a"
  32.   "130a"
  33.   "130a"
  34.   "130a"
  35.   "130a"
  36.   "130a"
  37.   "9a2c119a"
  38.   "9a3c118a"
  39.   "130a"
  40.   "130a"
  41.   "3ac34ac91a"
  42.   "3a2c125a"
  43.   "60a3b67a"
  44.   "58aca3b67a"
  45.   "56a2b72a"
  46.   "56a2b72a"
  47.   "56a2b72a"
  48.   "130a"
  49.   "130a"
  50.   "130a"
  51.   "130a"
  52.   "130a"
  53.   "130a"
  54.   "69a5b22ac33a"
  55.   "69a5b22a2c32a"
  56.   "67a5b2a4b52a"
  57.   "67a5bca4b52a"
  58.   "67a5bac4b52a"
  59.   "7a4d58a5b56a"
  60.   "7a5d2a2d53a5b56a"
  61.   "7a6d33ad83a"
  62.   "8a6d4a6d106a"
  63.   "9a6d3a10d14ad6ad70a2b8a"
  64.   "10a5d2a14d20a2d67a3b7a"
  65.   "3a3d8a6d6f8d19a2d75a"
  66.   "3a4d8a8d6f7d19ad74a"
  67.   "19a8d4f7d15a2dad73a"
  68.   "22a7d3f9d13a2dad72a"
  69.   "23ab8d4f7d2a4b5a2d74a"
  70.   "23a3b7d5f7dabda7d7ad66a"
  71.   "23a4ba6d4f8d2ab2a4d9a2d64a"
  72.   "23a6b7d7f6d16a2d51ac11a"
  73.   "23a6b8d7f4d18a2dad48a2c10a"
  74.   "20ad6ab19dfd21a2da2d43a2c10a"
  75.   "20a3d4ab19d2f2d24a2dad40ac10a"
  76.   "9a5bda4b9a4b9d3b4d3f18ada2d5ad50a"
  77.   "9a5b2d4b9a5ba6d6b4d3f20ad2a2dad49a"
  78.   "9a3b2a2b18a6b9a5dfd6ad60a2c5a"
  79.   "9a3b2a2b18a6b9a2b6d3ad21a2d40ac5a"
  80.   "40abd3b9a6d2ad67a"
  81.   "40a5b13a4d68a"
  82.   "16ad23a3bda4b14ad16ac49a"
  83.   "16a2d2a3d17a3b2d4b81a"
  84.   "16adcda3d4a2d11a3b2d4b81a"
  85.   "18a12d3ab6a3b3d6b78a"
  86.   "18ac13d2b6a3b4d5b78a"
  87.   "18ac2d3c8d2b9ab4da7b74a"
  88.   "18ac2d4c8db9a2b5d6b74a"
  89.   "18a3d5c8d4a7bd2c3da6b72a"
  90.   "19ad7c7d4a7b2d2c3d6b72a"
  91.   "20a9c6d11bd4c2da6b44ac25a"
  92.   "21a10c5d10bd5cda6b70a"
  93.   "22a10c5dc7bc2d4c2da5b43ad26a"
  94.   "23a11c4d7bcd6cda5b43a2d25a"
  95.   "24a12c3d6b9cda4b44a2d2ac21a"
  96.   "25a18c4b8cdac7b65a"
  97.   "26a17c4b9cda7b42acac20a"
  98.   "27a30cd2a5b65a"
  99.   "28a30cdb2a3b45ac19a"
  100.   "29a33c2a5b61a"
  101.   "30a33c3a3b43ac17a"
  102.   "31a34c2a7b56a"
  103.   "32a35c2a5b28ac5ac5ac15a"
  104.   "33a35c2a6b27a2c5ac19a"
  105.   "34a35c2a5b29a2c23a"
  106.   "35a36ca6b29a2c21a"
  107.   "36a36ca5b52a"
  108.   "37a37c4b52a"
  109.   "38a38c7b47a"
  110.   "39a38c6b47a"
  111.   "40a38cba3b47a"
  112.   "41a39c2ab47a"
  113.   "42a39c2a4b43a"
  114.   "43a39ca4b43a"
  115.   "44a39c2b45a"
  116.   "130a"
  117. ))
  118.  
  119. (area (features (
  120.    (1 "continent" "Australia")
  121.    (2 "island" "Bougainville")
  122.    (5 "island" "Choiseul")
  123.    (6 "island" "Christmas")
  124.    (7 "island" "Viti Levu")
  125.    (8 "island" "Vanua Levu")
  126.    (9 "island" "Guadalcanal")
  127.    (10 "island" "New Caledonia")
  128.    (11 "island" "New Guinea")
  129.    (12 "island" "Samoa")
  130.    (13 "island" "Santa Catalina")
  131.    (23 "island" "New Britain")
  132.    (24 "island" "New Ireland")
  133.    (25 "island" "Santa Isabel")
  134.    (26 "island" "Malaita")
  135.    (27 "island" "San Cristobal")
  136.    (28 "island" "New Georgia")
  137.    (29 "island" "Espiritu Santo")
  138.    (30 "island" "Efate")
  139.    (31 "island" "Ponape")
  140.    (32 "island" "Malekula")
  141.    (33 "island" "Trobriand")
  142.    (34 "island" "Fergusson")
  143.    (35 "island" "Tagula")
  144.    (35 "island" "Woodlark")
  145.    (36 "island" "Rennell")
  146.   )
  147.   "130a"
  148.   "130a"
  149.   "130a"
  150.   "130a"
  151.   "130a"
  152.   "130a"
  153.   "130a"
  154.   "130a"
  155.   "130a"
  156.   "130a"
  157.   "130a"
  158.   "130a"
  159.   "130a"
  160.   "130a"
  161.   "130a"
  162.   "130a"
  163.   "130a"
  164.   "130a"
  165.   "130a"
  166.   "130a"
  167.   "130a"
  168.   "130a"
  169.   "130a"
  170.   "130a"
  171.   "130a"
  172.   "130a"
  173.   "130a"
  174.   "130a"
  175.   "130a"
  176.   "130a"
  177.   "130a"
  178.   "130a"
  179.   "130a"
  180.   "130a"
  181.   "130a"
  182.   "130a"
  183.   "130a"
  184.   "130a"
  185.   "53ay76a"
  186.   "130a"
  187.   "130a"
  188.   "130a"
  189.   "130a"
  190.   "52ax77a"
  191.   "38al26ac64a"
  192.   "130a"
  193.   "130a"
  194.   "70af59a"
  195.   "130a"
  196.   "130a"
  197.   "77aaj51a"
  198.   "130a"
  199.   "130a"
  200.   "130a"
  201.   "130a"
  202.   "130a"
  203.   "130a"
  204.   "130a"
  205.   "130a"
  206.   "130a"
  207.   "130a"
  208.   "130a"
  209.   "130a"
  210.   "130a"
  211.   "130a"
  212.   "130a"
  213.   "130a"
  214.   "130a"
  215.   "130a"
  216.   "130a"
  217.   "130a"
  218.   "130a"
  219.   "130a"
  220.   "130a"
  221.   "130a"
  222.   "130a"
  223.   "53ab76a"
  224.   "104ak25a"
  225.   "130a"
  226.   "130a"
  227.   "130a"
  228.   "130a"
  229.   "130a"
  230.   "130a"
  231.   "130a"
  232.   "130a"
  233.   "130a"
  234.   "130a"
  235.   "130a"
  236.   "130a"
  237. ))
  238.  
  239. (side 1 (name "Allies") (adjective "Allied") (emblem-name "flag-usa")
  240.    (class "allied") (names-locked true))
  241.  
  242. (side 2 (name "Japan") (adjective "Japanese") (emblem-name "flag-japan")
  243.    (class "japanese") (names-locked true))
  244.  
  245. (a-inf 50 38 1)
  246. (dd 106 10 1)
  247. (ca 63 15 1 (n "Kent"))
  248. (ca 107 9 1 (n "New Orleans"))
  249. (ca 63 15 1 (n "Northampton"))
  250. (ca 107 9 1 (n "Portland"))
  251. (cv 108 9 1 (n "Lexington"))
  252. (cv 108 9 1 (n "Yorktown"))
  253. (airfield 41 36 1 (n "Thursday Island"))
  254. (airfield 51 37 1)
  255. (port 55 20 1 (n "Cairns"))
  256. (port 51 37 1 (n "Port Moresby"))
  257. (town 107 10 1 (n "Noumea"))
  258. (town 63 14 1 (n "Townsville"))
  259.  
  260. (j-inf 53 49 2)
  261. (aa 52 49 2)
  262. (dd 39 75 2)
  263. (cl 54 50 2)
  264. (cl 54 50 2)
  265. (ca 52 50 2 (n "Aoba"))
  266. (ca 52 50 2 (n "Furutaka"))
  267. (ca 37 75 2)
  268. (cvl 53 50 2 (n "Shoho"))
  269. (cvs 67 42 2 (n "Chitose"))
  270. (cvs 53 50 2)
  271. (cv 39 74 2 (n "Shokaku"))
  272. (cv 38 74 2 (n "Zuikaku"))
  273. (airfield 51 52 2 (n "Kavieng"))
  274. (airfield 47 43 2 (n "Lae"))
  275. (port 38 75 2 (n "Truk"))
  276. (town 54 49 2 (n "Rabaul"))
  277.